\begin{tabbing}
(\=(Unfold `p{-}fun{-}exp` ( 0)$\cdot$) \+
\\[0ex]CollapseTHEN (RecUnfold `primrec` 0)$\cdot$) 
\\[0ex]CollapseTHEN ((
\-\\[0ex](\=RepeatFor (first\_nat 3:n) (((if (0) =0 then SplitOnConclITE else SplitOnHypITE (0))$\cdot$) \+
\\[0ex]
\\[0ex]CollapseTHENA (Auto$\cdot$)$\cdot$))$\cdot$) 
\\[0ex]CollapseTHEN (((Try ((Complete (Auto'))$\cdot$))$\cdot$) 
\\[0ex]
\\[0ex]CollapseTHEN ((Reduce 0) 
\\[0ex]CollapseTHEN (Fold `p{-}fun{-}exp` 0)$\cdot$)$\cdot$)$\cdot$)$\cdot$
\-
\end{tabbing}